object frmCustomBoard: TfrmCustomBoard Left = 212 Top = 166 ActiveControl = OkButton BorderIcons = [biSystemMenu, biHelp] BorderStyle = bsSingle Caption = 'Custom Board Size:' ClientHeight = 198 ClientWidth = 303 Font.Color = clBlack Font.Height = -13 Font.Name = 'Arial' Font.Style = [fsBold] Position = poScreenCenter OnClose = FormClose OnShow = FormShow PixelsPerInch = 96 TextHeight = 16 object imgBackGround: TImage Left = 0 Top = 0 Width = 303 Height = 198 Align = alClient Picture.Data = {} Stretch = True end object Bevel1: TBevel Left = 191 Top = 3 Width = 2 Height = 192 Shape = bsLeftLine end object Bevel2: TBevel Left = 196 Top = 58 Width = 105 Height = 7 Shape = bsTopLine end object PreviewGrid: TDrawGrid Left = 49 Top = 48 Width = 94 Height = 86 TabStop = False Color = clNavy ColCount = 10 DefaultColWidth = 8 DefaultRowHeight = 8 FixedColor = clNavy FixedCols = 0 Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine] PopupMenu = PopupMenu2 ScrollBars = ssNone TabOrder = 0 end object ColumnsTrackBar: TTrackBar Left = 32 Top = 0 Width = 125 Height = 47 HelpContext = 4001 Min = 1 Orientation = trHorizontal PopupMenu = PopupMenu2 Frequency = 1 Position = 1 SelEnd = 0 SelStart = 0 TabOrder = 1 TickMarks = tmBottomRight TickStyle = tsAuto OnChange = ColumnsTrackBarChange end object RowsTrackBar: TTrackBar Left = 3 Top = 47 Width = 45 Height = 150 HelpContext = 4002 Max = 15 Min = 1 Orientation = trVertical PopupMenu = PopupMenu2 Frequency = 1 Position = 1 SelEnd = 0 SelStart = 0 TabOrder = 2 TickMarks = tmBottomRight TickStyle = tsAuto OnChange = RowsTrackBarChange end object CancelButton: TButton Left = 220 Top = 169 Width = 60 Height = 21 HelpContext = 2 Cancel = True Caption = 'Cancel' Font.Color = clBlack Font.Height = -11 Font.Name = 'ms sans serif' Font.Style = [] ModalResult = 2 ParentFont = False PopupMenu = PopupMenu2 TabOrder = 4 end object OkButton: TButton Left = 220 Top = 132 Width = 60 Height = 21 HelpContext = 1 Caption = 'Ok' Default = True Font.Color = clBlack Font.Height = -11 Font.Name = 'ms sans serif' Font.Style = [] ModalResult = 1 ParentFont = False PopupMenu = PopupMenu2 TabOrder = 3 end object Panel1: TPanel Left = 198 Top = 11 Width = 102 Height = 41 HelpContext = 4003 BevelInner = bvRaised PopupMenu = PopupMenu2 TabOrder = 5 object Label1: TLabel Left = 6 Top = 5 Width = 90 Height = 14 Caption = 'Board Dimensions:' Font.Color = clWindowText Font.Height = -11 Font.Name = 'arial' Font.Style = [] ParentFont = False Transparent = True end object GameDimensionsLabel: TLabel Left = 36 Top = 23 Width = 30 Height = 14 Alignment = taCenter Caption = '5 x 10' Font.Color = clTeal Font.Height = -11 Font.Name = 'arial' Font.Style = [fsBold] ParentFont = False Transparent = True end end object PopupMenu2: TPopupMenu Left = 207 Top = 341 object pmenuWhatsThis: TMenuItem Caption = '&What'#39's This?' ShortCut = 0 OnClick = pmenuWhatsThisClick end end end